VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "clsProgressBar"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Option Explicit

Private A_oProgressBar As ProgressBar

Public Sub InitCls(ByRef voProgressBar As ProgressBar, ByVal vMax As Long)
    Set A_oProgressBar = voProgressBar
    A_oProgressBar.Visible = True
    A_oProgressBar.Value = 0
    A_oProgressBar.Max = vMax
    A_oProgressBar.Min = 0
End Sub

Public Sub PB_AddOne()
    A_oProgressBar.Value = A_oProgressBar.Value + 1
End Sub

Public Sub PB_Clear()
    A_oProgressBar.Value = 0
End Sub

Public Sub PB_Hide()
    PB_Clear
    A_oProgressBar.Visible = False
End Sub
